

		* APPENDIX 13: Did Those who Consistently Identified with the Labour Party Prior to Party Position Change Adopt more Left-Wing Positions?
		
		cd "$data"
		use "data1.dta", clear 
		
		
gen consistentlabour = . 
replace consistentlabour = 1 if pid1==2 & pid2==2 & pid3==2 & pid4==2 & pid6==2 
replace consistentlabour = 0 if pid6==0

gen centerleftright = .
replace centerleftright = 0 if leftright6==1
replace centerleftright = 1 if leftright6==0
replace centerleftright = 2 if leftright6==2

label define centerleftright_labels 0"center" 1"left-wing" 2"right-wing"
label values centerleftright centerleftright_labels


eststo M1: regress shiftw6w7_LR i.consistentlabour, robust
eststo M2: regress shiftw6w7_LR i.consistentlabour##i.centerleftright, robust
margins, at(centerleftright=(0 1 2) consistentlabour=0) post
estimates store independent

eststo M2: regress shiftw6w7_LR i.consistentlabour##i.centerleftright, robust
margins, at(centerleftright=(0 1 2) consistentlabour=1) post
estimates store consistentlabour

esttab M1 M2 using "${tables}/Table13_1.tex" , b(3) se(3) nogap replace


coefplot independent consistentlabour, horizontal yline(0) title("change in left-right between wave 6 and wave 7") xline(0, lpattern(dash)) ylabel(1 "center" 2 "left-wing" 3 "right-wing", angle(0)) 
graph save "${figures}/Figure13_1.gph", replace 


